Imports DAO
Imports DTO

Public Class PhieuThuePHG_Bus

    Inherits AbstractBUS

    Public Function LayBang() As DataTable

        'Kiem tra Business Rule neu co
        Dim dt As DataTable
        Dim ptDao As New PhieuThuePHG_Dao()
        dt = ptDao.LayBang()
        Return dt

    End Function

    Public Function LayDanhSach() As IList

        'Kiem tra Business Rule neu co
        Dim ds As IList
        Dim ptDao As New PhieuThuePHG_Dao()
        ds = ptDao.LayDanhSach()
        Return ds

    End Function

    Public Sub CapNhatBang(ByVal dt As DataTable)

        'Kiem tra Business Rule neu co
        Dim ptDao As New PhieuThuePHG_Dao()
        ptDao.CapNhatBang(dt)

    End Sub
    'Tim kiem phieu thue theo ma phong
    Public Function TimKiem(ByVal mphg As Integer) As PhieuThuePHG_Dto

        'Kiem tra Business Rule neu co
        Dim ptDto As PhieuThuePHG_Dto
        Dim ptDao As New PhieuThuePHG_Dao()
        ptDto = ptDao.TimKiem(mphg)
        Return ptDto

    End Function

    Public Sub Them(ByVal ptDto As PhieuThuePHG_Dto)

        'Kiem tra Business Rule neu co
        Dim ptDao As New PhieuThuePHG_Dao()
        ptDao.Them(ptDto)

    End Sub

    Public Sub Xoa(ByVal mp As Integer)

        'Kiem tra Business Rule neu co
        Dim ptDao As New PhieuThuePHG_Dao()
        ptDao.Xoa(mp)

    End Sub

    Public Sub Sua(ByVal ptDto As PhieuThuePHG_Dto)

        'Kiem tra Business Rule neu co
        Dim ptDao As New PhieuThuePHG_Dao()
        ptDao.Sua(ptDto)


    End Sub

    Public Function TraCuu(ByVal mkh As Integer) As PhieuThuePHG_Dto

        'Kiem tra Business Rule neu co
        Dim ptDto As PhieuThuePHG_Dto
        Dim ptDao As New PhieuThuePHG_Dao()
        ptDto = ptDao.TraCuuPT(mkh)
        Return ptDto

    End Function
End Class
